www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_saveinfo.asp
<!-- #include file="config.asp" --> <!-- #include file="style.asp" --> <!-- #include file="admin_verify.asp" --> <% Response.Expires=-1 set cn1=server.CreateObject("ADODB.Connection") set rs1=server.CreateObject("ADODB.Recordset") CreateConn cn1,dbtype rs1.open "SELECT TOP 1 name,faceid,email,qqid,msnid,homepage FROM supervisor",cn1,0,3 tname=server.htmlEncode(Request.Form("aname")) tfaceid=Request.Form("aface") if len(cstr(tfaceid))>3 then tfaceid=0 elseif isnumeric(tfaceid)=false or tfaceid="" then tfaceid=0 elseif clng(tfaceid)<0 or clng(tfaceid)>255 then tfaceid=0 else tfaceid=cbyte(tfaceid) end if temail=server.htmlEncode(Request.Form("aemail")) tqqid=server.htmlEncode(Request.Form("aqqid")) tmsnid=server.htmlEncode(Request.Form("amsnid")) thomepage=server.htmlEncode(Request.Form("ahomepage")) if isnumeric(tfaceid)=false then tfaceid="1" temail=replace(temail," ","") tqqid=replace(tqqid," ","") tmsnid=replace(tmsnid," ","") thomepage=replace(thomepage," ","") if lcase(left(thomepage,7))<>"http://" and lcase(left(thomepage,6))<>"ftp://" and thomepage<>"" then thomepage="http://" & thomepage rs1("name")=textfilter(tname,false) rs1("faceid")=tfaceid rs1("email")=textfilter(temail,true) rs1("qqid")=textfilter(tqqid,false) rs1("msnid")=textfilter(tmsnid,false) rs1("homepage")=textfilter(thomepage,true) rs1.Update Response.Redirect "admin.asp" rs1.Close cn1.close set rs1=nothing set cn1=nothing %>